home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Mozilla Splash Screen 1.xpl < prev    next >
Text File  |  2002-09-24  |  2KB  |  48 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Mozilla"
  5. "NAME"="Splash Screen"
  6. "VERSION"="1.0"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Picture:"
  9. "DATA 1"="Pictures (*.bmp)|*.bmp|All Files (*.*)|*.*"
  10. "DESCRIPTION 1"="Under Windows, Mozilla allows the splash screen to be customized."
  11. "DESCRIPTION 2"="To change the image, select a bitmap file. The image should be 390 pixels wide and 261 pixels high. If you wish to restore the default image, leave the box blank."
  12. "DESCRIPTION 3"="NOTE: This will affect all users of Mozilla on this computer."
  13. "DESCRIPTION 4"="Mozilla is free, open source web browser available from http://www.mozilla.org/ ."
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="This is much more simple than the other Mozilla plugins..."
  18.  
  19. sP="HKCU\Software\mozilla.org\Mozilla\"
  20. sV1="CurrentVersion"
  21. sV2="\Main\Install Directory"
  22.  
  23. Sub Plugin_Initialize
  24.  MozVer=RegReadValue(sP&sV1)
  25.  if IsEmpty(MozVer)=true then
  26.   Call Disable()
  27.  end if
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  MozVer=RegReadValue(sP&sV1)
  32.  InsPath=RegReadValue(sP&MozVer&sV2)
  33.  
  34.  s=GetUIElement(1)
  35.  if  len(s)>0 then
  36.   Call FileCopy(s,InsPath&"mozilla.bmp")
  37.   Call MsgInformation("New splash screen set!")
  38.  else
  39.   t=FileExists(InsPath&"mozilla.bmp")
  40.   if t=true then
  41.    Call FileDelete(InsPath&"mozilla.bmp")
  42.   end if
  43.  end if
  44. End Sub
  45.  
  46. Sub Plugin_Terminate
  47. End Sub
  48.